﻿Public Class Persona
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cId As Integer
    Private cNombre As String
    Private cApellido As String
    Private cNroDocumento As Integer
    Private cTipoDocumento As TipoDocumento
    Private cFechaNacimiento As DateTime
    Private cSexo As String
    Private cTelefono As String
    Private cEmail As String

#End Region

#Region "Constructores"
    Public Sub New()
        cId = -1
        cNombre = ""
        cApellido = ""
        cNroDocumento = -1
        cTipoDocumento = Nothing
        cFechaNacimiento = Nothing
        cSexo = ""
        cTelefono = ""
        cEmail = ""
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pNombre As String, ByVal pApellido As String, ByVal pNroDocumento As Integer, ByRef pTipoDocumento As TipoDocumento, ByVal pFecha As DateTime, ByVal pSexo As String, ByVal pTelefono As String, ByVal pEmail As String)
        cId = pId
        cNombre = pNombre
        cApellido = pApellido
        cNroDocumento = pNroDocumento
        cTipoDocumento = pTipoDocumento
        cFechaNacimiento = pFecha
        cSexo = pSexo
        cTelefono = pTelefono
        cEmail = pEmail
    End Sub
#End Region

#Region "Propiedades"
    Public Property Id()
        Get
            Return cId
        End Get
        Set(ByVal value)
            cId = value
        End Set
    End Property

    Public Property Nombre()
        Get
            Return cNombre
        End Get
        Set(ByVal value)
            cNombre = value
        End Set
    End Property

    Public Property Apellido()
        Get
            Return cApellido
        End Get
        Set(ByVal value)
            cApellido = value
        End Set
    End Property

    Public Property NroDocumento()
        Get
            Return cNroDocumento
        End Get
        Set(ByVal value)
            cNroDocumento = value
        End Set
    End Property

    Public Property TipoDocumento()
        Get
            Return cTipoDocumento
        End Get
        Set(ByVal value)
            cTipoDocumento = value
        End Set
    End Property

    Public Property FechaNacimiento()
        Get
            Return cFechaNacimiento
        End Get
        Set(ByVal value)
            cFechaNacimiento = value
        End Set
    End Property

    Public Property Sexo()
        Get
            Return cSexo
        End Get
        Set(ByVal value)
            cSexo = value
        End Set
    End Property

    Public Property Email()
        Get
            Return cEmail
        End Get
        Set(ByVal value)
            cEmail = value
        End Set
    End Property

    Public Property Telefono()
        Get
            Return cTelefono
        End Get
        Set(ByVal value)
            cTelefono = value
        End Set
    End Property
#End Region
End Class
